home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #11 / Amiga Plus CD - 2004 - No. 11.iso / AmiSoft / Dev / basic / blitzgtfix.lha / BlitzGTFix / BBGTLib_Examples / messagetimes.bb2 < prev    next >
Text File  |  2002-02-01  |  779b  |  27 lines
  1. ; Checking that GTEventSeconds and GTEventMicros works correctly
  2.  
  3. WbToScreen 0
  4.  
  5. GTButton 0,1,20,20,110,14,"ghj",16
  6.  
  7. Window 0,0,0,400,300,$100f,"fhnk",-1,-1
  8. *win.Window = Peek.l(Addr Window(0))
  9.  
  10. While ev.l<>#IDCMP_CLOSEWINDOW
  11.     mask.l = Wait_(1 LSL *win\UserPort\mp_SigBit)
  12.     *imsg.IntuiMessage = *win\UserPort\mp_MsgList\lh_Head
  13.     If *imsg\ExecMessage\mn_Node\ln_Succ=0 Then *imsg=0
  14.     While *imsg AND ev<>#IDCMP_CLOSEWINDOW
  15.         NPrint "Seconds/micros from actual IntuiMessage = ",*imsg\Seconds,"/",*imsg\Micros
  16.         ev = Event
  17.         NPrint "Seconds/micros from BBGTLib             = ",GTEventSeconds,"/",GTEventMicros
  18.  
  19.         *imsg.IntuiMessage = *win\UserPort\mp_MsgList\lh_Head
  20.         If *imsg\ExecMessage\mn_Node\ln_Succ=0 Then *imsg=0
  21.     Wend
  22. Wend
  23.  
  24. End
  25.  
  26.  
  27.